<!--#include file="./top.asp"-->

<%
	dim rs_rpt_ict, str_rpt_ict
	set rs_rpt_ict = server.CreateObject("Adodb.Recordset")
	str_rpt_ict = "select * from rpt_ict where stu_id = '" & request.QueryString("stu_id") & "'"
	rs_rpt_ict.open str_rpt_ict, conn, 1, 3
	
	if rs_rpt_ict.eof then
		rs_rpt_ict.addnew
		rs_rpt_ict.fields("stu_id") = request.QueryString("stu_id")
		rs_rpt_ict.update
		rs_rpt_ict.close
		rs_rpt_ict.open str_rpt_ict, conn, 1, 3
	end if
	
	for i = 1 to rs_rpt_ict.fields.count - 1
		'response.Write "rs_rpt_ict_" & i & " = " & request.Form("rs_rpt_ict_" & i) & "<br />"
		rs_rpt_ict.fields(i) = request.form("rs_rpt_ict_" & i)
	next
	rs_rpt_ict.update
	
	response.Write str_rpt_ict
%>

</body>
</html>
<%
	rs_rpt_ict.close
	set rs_rpt_ict = nothing
	call CloseConn()
	response.Redirect "./rpt_ict.asp?stu_id=" & request.QueryString("stu_id")
%>
